DXL script to display CPS "Proposed" attributes with redline markups

Tony_Goodman - Fri Jun 05 03:06:08 EDT 2009
A script to do exactly what you ask is posted on the Smart DXL forum:
Show CPS Proposed changes in Layout DXL

Tony_Goodman - Fri Jun 05 03:06:08 EDT 2009
A script to do exactly what you ask is posted on the Smart DXL forum:
Show CPS Proposed changes in Layout DXL

SystemAdmin - Mon Jun 22 14:04:52 EDT 2009
Tony,

Thank you so much for your help. I applied the script and it displays the difference between the object text and the proposed object text in redline markups. The next problem I've encountered it that I have other attributes besides the object text that I would like to be able to see those "proposed" changes as well. I think I mentioned that I am pretty dxl illiterate, but I thought I might be able to modify the script to include additional redline differences for all of the attributes configured in my CP module ... I was wrong. I have attached the file, I'm not sure if it will work because when I try to check it in the Edit Layout DXL window I get a syntex error.

Help ! What am I doing wrong?

Tony_Goodman - Tue Jun 23 03:06:27 EDT 2009
You have accidentally deleted a closing brace after the first else clause.

Add the closing brace } after the line containing delete buff1.

These syntax errors can be hard to find because the interpreter gets confused and the line numbers reported are not always what you might expect.

Tony_Goodman - Tue Jun 23 03:41:57 EDT 2009

A better approach would be to put the attribute names in a strign aray and iterate through them. Louie's advice is also good, but this should get you started for now.

I have not run this code, just typed it in.

// Proposed Changes 
 
/* 
   Layput DXL to display redlined differences between Object Text and 
   proposed object text. 
    
   Tony Goodman 
*/ 
pragma runLim,0 
 
string shortName = "Change Proposal Links" 
 
string ATTRS[] = { "Object Text", "HW MOD" }
 
Link l 
LinkRef lr 
string otherModName 
Module linkMod = null 
Object othero 
Object po 
string orderString = "" 
User usr 
string s = "" 
int i = 0
 
Buffer a = create() 
Buffer b = create()
 
Buffer buff1 = create()
Buffer buff2 = create()  
 
 
for lr in obj<-"*" do 
{ 
   otherModName = fullName(source lr) 
   if (!module otherModName) continue 
   if (isDeleted module otherModName) continue 
   if (!open module otherModName) read(otherModName,false) 
} 
 
for l in obj<-"*" do 
{ 
   linkMod = module(l) 
   if (null linkMod) continue 
   if (name(linkMod) != shortName) continue 
 
   othero = source l 
   if (null othero) continue 
   if (isDeleted othero) continue 
    
   for (i = 0; i < sizeof(ATTRS); i++)
   {
   setempty(a)
   setempty(b) 
 
   a = probeAttr_(obj, attr)
   b = probeAttr_(othero, "Proposed " attr) 
    
   if ( length(a) > 10000 || length(b) > 10000 ) 
   { 
       displayRich "{\\i (Text too big to compare.)}" 
   } else 
   { 
       Buffer buff1 = create 
       diff(buff1, a, b, "\\cf1\\strike ", "\\cf3\\ul ") 
       
       s = identifier(othero) 
       buff1 = "{\\b " s ": }\n" tempStringOf(buff1) "\n\n" 
       
       displayRichWithColour (attr ": " tempStringOf buff1) 
       delete buff1
   }
   }
  
   
}
delete(a)
delete(b)

llandale - Wed Jun 24 12:59:47 EDT 2009
Your layout seems to work after a couple fixes. Color is displayed OK.

I tweaked it to take the exact output and set an attribute value. While the strike-outs and underscores are displayed, the color is not. I see no such 'set attr with color' command. I see there is a color table in the output. Got any ideas?

>Louie

Tony_Goodman - Thu Jun 25 02:49:47 EDT 2009
Interesting.
I got the layout working and it displays fine.
I then converted to attribute DXL. Had to manually add overloaded function for displayRichWithColor.
As you say, the strikethru and underline is shown but the colours are not.
If I create another layout column and display the dxl attribute using displayRichWithColor(obj."DXL for cps") the colours are shown correctly.

It seems that columns displaying attributes do not support color.

I am stumped.

Tony_Goodman - Thu Jun 25 02:59:56 EDT 2009

Here's the un-hosed layout DXL.

pragma runLim,0 
 
string shortName = "Change Proposal Links" 
 
string ATTRS[] = { "Object Text", "HW MOD" }
 
Link l 
LinkRef lr 
string otherModName 
Module linkMod = null 
Object othero 
Object po 
string orderString = "" 
User usr 
string s = "" 
int i = 0
 
Buffer a = create() 
Buffer b = create()
 
Buffer buff1 = create()
Buffer buff2 = create()  
 
 
for lr in obj<-"*" do 
{ 
   otherModName = fullName(source lr) 
   if (!module otherModName) continue 
   if (isDeleted module otherModName) continue 
   if (!open module otherModName) read(otherModName,false) 
} 
 
for l in obj<-"*" do 
{ 
   linkMod = module(l) 
   if (null linkMod) continue 
   if (name(linkMod) != shortName) continue 
 
   othero = source l 
   if (null othero) continue 
   if (isDeleted othero) continue 
    
   for (i = 0; i < sizeof(ATTRS); i++)
   {
   setempty(a)
   setempty(b) 
 
   a = probeAttr_(obj, ATTRS[i])
   b = probeAttr_(othero, "Proposed " ATTRS[i]) 
    
   if ( length(a) > 10000 || length(b) > 10000 ) 
   { 
       displayRich "{\\i (Text too big to compare.)}" 
   } else 
   { 
       Buffer buff1 = create 
       diff(buff1, a, b, "\\cf1\\strike ", "\\cf3\\ul ") 
       
       s = identifier(othero) 
       buff1 = "{\\b " s ": }\n" tempStringOf(buff1) "\n\n" 
       
       displayRichWithColour (ATTRS[i] ": " tempStringOf buff1) 
       delete buff1
   }
   }
  
   
}
delete(a)
delete(b)

Tony_Goodman - Thu Jun 25 03:26:13 EDT 2009

Method to make this work:
Create layout DXL column as above.
Convert to attribute DXL.
Edit attribute DXL to change overloaded function name from dispayRich to displayRichWithColor.
Create a new layout dxl column containing the following code, where your attribute is called "DXL for CPS":

displayRichWithColor(obj,"DXL for CPS")

Tony_Goodman - Thu Jun 25 03:26:13 EDT 2009

Method to make this work:
Create layout DXL column as above.
Convert to attribute DXL.
Edit attribute DXL to change overloaded function name from dispayRich to displayRichWithColor.
Create a new layout dxl column containing the following code, where your attribute is called "DXL for CPS":

displayRichWithColor(obj,"DXL for CPS")